﻿Public Class DocumentoCliente

    Dim _DCI_CIA, _DCI_SUC, _DCI_TDOC, _DCI_Codigo As String
    Dim _DCI_Fecha As String
    Dim _CLI_Codigo, _VEN_Codigo, _MON_Codigo, _TDO_Codigo, _CNV_Codigo As String
    Dim _FOP_Codigo, _AGE_Codigo As String
    Dim _DCI_LPrecio As String
    Dim _DCI_TotalBruto, _DCI_TotalDsct, _DCI_TotalNeto, _DCI_IGV, _DCI_Total As Double
    Dim _DCI_UltModificacion As Date
    Dim _DCI_Observaciones, _DCI_ObsCredito, _DCI_DireccionEntrega, _CLEN_Codigo As String
    Dim _DCI_ExcedeDscto, _DCI_TotalDsctoCond, _DCI_TotalSoles, _DCI_TotalDolares, _DCI_Percepcion As Double
    Dim _DCI_TotalCobrar As Double
    Dim _DCI_Balanza, _RUT_Codigo, _DCI_Estado, _DCI_Programado, _DCI_Rebote As String
    Dim _FecVencimiento As String
    Dim _Monto, _Saldo, _Banco, _NroUnico As String


    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tdoc As String, nroPedido As String, fecha As String, codCliente As String, _
            venCodigo As String, monCodigo As String, tdoCodigo As String, cnvCodigo As String, fopCodigo As String, ageCodigo As String, totalBruto As Double, _
            totalDescto As Double, totalNeto As Double, igv As Double, total As Double, ultModificacion As String, observacion As String, obsCredito As String, _
            direEntrega As String, ClenCodigo As String, excedeDscto As Double, totalDsctoCond As Double, totalSoles As Double, totalDolares As Double, _
            percep As Double, totalCobrar As Double, balanza As String, ruta As String, estado As String, programado As String, rebote As String)
        Me._DCI_CIA = cia
        Me._DCI_SUC = suc
        Me._DCI_TDOC = tdoc
        Me._DCI_Codigo = nroPedido
        Me._DCI_Fecha = fecha
        Me._CLI_Codigo = codCliente
        Me._VEN_Codigo = venCodigo
        Me._MON_Codigo = monCodigo
        Me._TDO_Codigo = tdoCodigo
        Me._CNV_Codigo = cnvCodigo
        Me._FOP_Codigo = fopCodigo
        Me._AGE_Codigo = ageCodigo
        Me._DCI_TotalBruto = totalBruto
        Me._DCI_TotalDsct = totalDescto
        Me._DCI_TotalNeto = totalNeto
        Me._DCI_IGV = igv
        Me._DCI_Total = total
        Me._DCI_UltModificacion = ultModificacion
        Me._DCI_Observaciones = observacion
        Me._DCI_ObsCredito = obsCredito
        Me._DCI_DireccionEntrega = direEntrega
        Me._CLEN_Codigo = ClenCodigo
        Me._DCI_ExcedeDscto = excedeDscto
        Me._DCI_TotalDsctoCond = totalDsctoCond
        Me._DCI_TotalSoles = totalSoles
        Me._DCI_TotalDolares = totalDolares
        Me._DCI_Percepcion = percep
        Me._DCI_TotalCobrar = totalCobrar
        Me._DCI_Balanza = balanza
        Me._RUT_Codigo = ruta
        Me._DCI_Estado = estado
        Me._DCI_Programado = programado
        Me._DCI_Rebote = rebote
    End Sub

    Sub New(tdocCodigo As String, dciCodigo As String, fecha As String, fecVencimiento As String, moneda As String, monto As String, saldo As String, dciEstado As String, banco As String, nroUnico As String)
        Me._DCI_TDOC = tdocCodigo
        Me._DCI_Codigo = dciCodigo
        Me._DCI_Fecha = fecha
        Me._FecVencimiento = fecVencimiento
        Me._MON_Codigo = moneda
        Me._Monto = monto
        Me._Saldo = saldo
        Me._DCI_Estado = dciEstado
        Me._Banco = banco
        Me._NroUnico = nroUnico
    End Sub

    Public Property CIA() As String
        Get
            Return _DCI_CIA
        End Get
        Set(value As String)
            _DCI_CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _DCI_SUC
        End Get
        Set(value As String)
            _DCI_SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _DCI_TDOC
        End Get
        Set(value As String)
            _DCI_TDOC = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _DCI_Codigo
        End Get
        Set(value As String)
            _DCI_Codigo = value
        End Set
    End Property

    Public Property DCI_Fecha() As String
        Get
            Return _DCI_Fecha
        End Get
        Set(value As String)
            _DCI_Fecha = value
        End Set
    End Property

    Public Property CLI_Codigo() As String
        Get
            Return _CLI_Codigo
        End Get
        Set(value As String)
            _CLI_Codigo = value
        End Set
    End Property

    Public Property DCI_LPrecio() As String
        Get
            Return _DCI_LPrecio
        End Get
        Set(value As String)
            _DCI_LPrecio = value
        End Set
    End Property


    Public Property VEN_Codigo() As String
        Get
            Return _VEN_Codigo
        End Get
        Set(value As String)
            _VEN_Codigo = value
        End Set
    End Property

    Public Property MON_Codigo() As String
        Get
            Return _MON_Codigo
        End Get
        Set(value As String)
            _MON_Codigo = value
        End Set
    End Property

    Public Property TDO_Codigo() As String
        Get
            Return _TDO_Codigo
        End Get
        Set(value As String)
            _TDO_Codigo = value
        End Set
    End Property

    Public Property CNV_Codigo() As String
        Get
            Return _CNV_Codigo
        End Get
        Set(value As String)
            _CNV_Codigo = value
        End Set
    End Property

    Public Property FOP_Codigo() As String
        Get
            Return _FOP_Codigo
        End Get
        Set(value As String)
            _FOP_Codigo = value
        End Set
    End Property

    Public Property AGE_Codigo() As String
        Get
            Return _AGE_Codigo
        End Get
        Set(value As String)
            _AGE_Codigo = value
        End Set
    End Property

    Public Property DCI_TotalBruto() As Double
        Get
            Return _DCI_TotalBruto
        End Get
        Set(value As Double)
            _DCI_TotalBruto = value
        End Set
    End Property

    Public Property DCI_TotalDsct() As Double
        Get
            Return _DCI_TotalDsct
        End Get
        Set(value As Double)
            _DCI_TotalDsct = value
        End Set
    End Property

    Public Property DCI_TotalNeto() As Double
        Get
            Return _DCI_TotalNeto
        End Get
        Set(value As Double)
            _DCI_TotalNeto = value
        End Set
    End Property

    Public Property DCI_IGV() As Double
        Get
            Return _DCI_IGV
        End Get
        Set(value As Double)
            _DCI_IGV = value
        End Set
    End Property

    Public Property DCI_Total() As Double
        Get
            Return _DCI_Total
        End Get
        Set(value As Double)
            _DCI_Total = value
        End Set
    End Property

    Public Property DCI_UltModificacion() As Date
        Get
            Return _DCI_UltModificacion
        End Get
        Set(value As Date)
            _DCI_UltModificacion = value
        End Set
    End Property

    Public Property DCI_Observaciones() As String
        Get
            Return _DCI_Observaciones
        End Get
        Set(value As String)
            _DCI_Observaciones = value
        End Set
    End Property

    Public Property DCI_ObsCredito() As String
        Get
            Return _DCI_ObsCredito
        End Get
        Set(value As String)
            _DCI_ObsCredito = value
        End Set
    End Property

    Public Property DCI_DireccionEntrega() As String
        Get
            Return _DCI_DireccionEntrega
        End Get
        Set(value As String)
            _DCI_DireccionEntrega = value
        End Set
    End Property

    Public Property CLEN_Codigo() As String
        Get
            Return _CLEN_Codigo
        End Get
        Set(value As String)
            _CLEN_Codigo = value
        End Set
    End Property

    Public Property DCI_ExcedeDscto() As Double
        Get
            Return _DCI_ExcedeDscto
        End Get
        Set(value As Double)
            _DCI_ExcedeDscto = value
        End Set
    End Property

    Public Property DCI_TotalDsctoCond() As Double
        Get
            Return _DCI_TotalDsctoCond
        End Get
        Set(value As Double)
            _DCI_TotalDsctoCond = value
        End Set
    End Property

    Public Property DCI_TotalSoles() As Double
        Get
            Return _DCI_TotalSoles
        End Get
        Set(value As Double)
            _DCI_TotalSoles = value
        End Set
    End Property

    Public Property DCI_TotalDolares() As Double
        Get
            Return _DCI_TotalDolares
        End Get
        Set(value As Double)
            _DCI_TotalDolares = value
        End Set
    End Property

    Public Property DCI_Percepcion() As Double
        Get
            Return _DCI_Percepcion
        End Get
        Set(value As Double)
            _DCI_Percepcion = value
        End Set
    End Property

    Public Property DCI_TotalCobrar() As Double
        Get
            Return _DCI_TotalCobrar
        End Get
        Set(value As Double)
            _DCI_TotalCobrar = value
        End Set
    End Property

    Public Property DCI_Balanza() As String
        Get
            Return _DCI_Balanza
        End Get
        Set(value As String)
            _DCI_Balanza = value
        End Set
    End Property

    Public Property RUT_Codigo() As String
        Get
            Return _RUT_Codigo
        End Get
        Set(value As String)
            _RUT_Codigo = value
        End Set
    End Property

    Public Property DCI_Estado() As String
        Get
            Return _DCI_Estado
        End Get
        Set(value As String)
            _DCI_Estado = value
        End Set
    End Property

    Public Property DCI_Programado() As String
        Get
            Return _DCI_Programado
        End Get
        Set(value As String)
            _DCI_Programado = value
        End Set
    End Property

    Public Property DCI_Rebote() As String
        Get
            Return _DCI_Rebote
        End Get
        Set(value As String)
            _DCI_Rebote = value
        End Set
    End Property

End Class
